home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / UTILITIE / CONVERSI / 1396.ZIP / UUDECODE.BAS < prev    next >
BASIC Source File  |  1988-09-04  |  7KB  |  101 lines
  1. 10 OPEN "UUDECODE.EXE" AS #1  LEN = 1
  2. 20 FIELD #1,1 AS A$
  3. 30 FOR N = 1 TO 1551
  4. 40 READ BYTE
  5. 50 LSET A$ = CHR$(BYTE)
  6. 60 PUT #1
  7. 70 NEXT N
  8. 80 CLOSE
  9. 90 SYSTEM
  10. 100 DATA 77, 90, 15, 0, 4, 0, 0, 0, 32, 0, 246, 15, 255, 255, 47, 16, 128
  11. 110 DATA 0, 0, 0, 18, 0, 44, 0, 30, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0
  12. 120 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
  13. 130 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
  14. 140 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
  15. 150 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
  16. 160 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
  17. 170 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
  18. 180 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
  19. 190 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
  20. 200 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
  21. 210 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
  22. 220 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
  23. 230 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
  24. 240 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
  25. 250 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
  26. 260 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
  27. 270 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
  28. 280 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
  29. 290 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
  30. 300 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
  31. 310 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
  32. 320 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
  33. 330 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 184, 35, 0, 142, 192, 190, 128
  34. 340 DATA 0, 191, 139, 0, 252, 172, 60, 0, 116, 13, 172, 60, 32, 118, 251
  35. 350 DATA 60, 32, 118, 4, 170, 172, 235, 248, 6, 31, 180, 48, 205, 33, 60
  36. 360 DATA 2, 115, 11, 186, 0, 0, 180, 9, 205, 33, 180, 0, 205, 33, 128, 62
  37. 370 DATA 139, 0, 0, 117, 38, 186, 51, 0, 185, 20, 0, 144, 187, 1, 0, 180
  38. 380 DATA 64, 205, 33, 186, 139, 0, 185, 40, 0, 187, 0, 0, 180, 63, 205, 33
  39. 390 DATA 139, 216, 131, 235, 2, 198, 135, 139, 0, 0, 144, 186, 139, 0, 184
  40. 400 DATA 0, 61, 205, 33, 115, 3, 233, 152, 1, 163, 128, 0, 232, 112, 1, 232
  41. 410 DATA 228, 0, 190, 194, 0, 191, 179, 0, 172, 60, 98, 117, 242, 172, 60
  42. 420 DATA 101, 117, 237, 172, 60, 103, 117, 232, 172, 60, 105, 117, 227, 172
  43. 430 DATA 60, 110, 117, 222, 172, 60, 32, 116, 251, 172, 60, 32, 117, 251
  44. 440 DATA 172, 60, 32, 116, 251, 60, 0, 116, 3, 170, 235, 244, 186, 179, 0
  45. 450 DATA 185, 0, 0, 136, 14, 138, 0, 180, 60, 205, 33, 115, 3, 233, 11, 1
  46. 460 DATA 163, 130, 0, 191, 18, 1, 232, 147, 0, 190, 194, 0, 172, 44, 32, 60
  47. 470 DATA 0, 116, 106, 162, 138, 0, 172, 138, 224, 172, 78, 45, 32, 32, 177
  48. 480 DATA 2, 210, 228, 177, 4, 210, 232, 10, 196, 170, 255, 6, 134, 0, 254
  49. 490 DATA 14, 138, 0, 128, 62, 138, 0, 0, 117, 2, 235, 204, 172, 138, 224
  50. 500 DATA 172, 78, 45, 32, 32, 177, 4, 210, 228, 177, 2, 210, 232, 10, 196
  51. 510 DATA 170, 255, 6, 134, 0, 254, 14, 138, 0, 128, 62, 138, 0, 0, 117, 2
  52. 520 DATA 235, 168, 172, 138, 224, 172, 45, 32, 32, 177, 6, 210, 228, 10, 196
  53. 530 DATA 170, 255, 6, 134, 0, 254, 14, 138, 0, 128, 62, 138, 0, 0, 117, 155
  54. 540 DATA 235, 137, 232, 28, 0, 190, 194, 0, 172, 60, 101, 117, 10, 172, 60
  55. 550 DATA 110, 117, 5, 172, 60, 100, 116, 3, 232, 197, 0, 232, 92, 0, 180
  56. 560 DATA 76, 205, 33, 137, 62, 136, 0, 139, 54, 126, 0, 191, 194, 0, 185
  57. 570 DATA 80, 0, 50, 192, 243, 170, 191, 194, 0, 172, 255, 14, 132, 0, 131
  58. 580 DATA 62, 132, 0, 0, 119, 8, 80, 232, 51, 0, 232, 97, 0, 88, 60, 96, 117
  59. 590 DATA 2, 44, 64, 60, 13, 116, 23, 170, 254, 6, 138, 0, 128, 62, 138, 0
  60. 600 DATA 80, 117, 214, 172, 255, 14, 132, 0, 60, 10, 117, 247, 235, 190, 70
  61. 610 DATA 255, 14, 132, 0, 137, 54, 126, 0, 139, 62, 136, 0, 195, 186, 18
  62. 620 DATA 1, 139, 14, 134, 0, 199, 6, 134, 0, 0, 0, 139, 30, 130, 0, 180, 64
  63. 630 DATA 205, 33, 115, 19, 80, 186, 90, 0, 185, 20, 0, 144, 187, 1, 0, 180
  64. 640 DATA 64, 205, 33, 88, 233, 122, 255, 199, 6, 136, 0, 18, 1, 195, 186
  65. 650 DATA 98, 1, 185, 0, 254, 139, 30, 128, 0, 180, 63, 205, 33, 114, 18, 61
  66. 660 DATA 0, 0, 117, 6, 232, 29, 0, 233, 88, 255, 163, 132, 0, 190, 98, 1
  67. 670 DATA 195, 80, 186, 71, 0, 185, 19, 0, 144, 187, 1, 0, 180, 64, 205, 33
  68. 680 DATA 88, 233, 62, 255, 186, 110, 0, 185, 16, 0, 144, 187, 1, 0, 180, 64
  69. 690 DATA 205, 33, 195, 0, 0, 0, 0, 0, 0, 0, 0, 0, 84, 104, 105, 115, 32, 80
  70. 700 DATA 114, 111, 103, 114, 97, 109, 32, 82, 101, 113, 117, 105, 114, 101
  71. 710 DATA 115, 32, 68, 79, 83, 32, 86, 101, 114, 115, 105, 111, 110, 32, 50
  72. 720 DATA 46, 48, 32, 111, 114, 32, 104, 105, 103, 104, 101, 114, 46, 13, 10
  73. 730 DATA 36, 13, 10, 73, 110, 112, 117, 116, 32, 112, 97, 116, 104, 47, 102
  74. 740 DATA 105, 108, 101, 58, 32, 32, 73, 110, 112, 117, 116, 32, 102, 105
  75. 750 DATA 108, 101, 32, 101, 114, 114, 111, 114, 46, 13, 10, 79, 117, 116
  76. 760 DATA 112, 117, 116, 32, 102, 105, 108, 101, 32, 101, 114, 114, 111, 114
  77. 770 DATA 46, 13, 10, 69, 110, 100, 32, 110, 111, 116, 32, 102, 111, 117, 110
  78. 780 DATA 100, 46, 13, 10, 98, 1, 0, 226, 254, 177, 0, 14, 0, 176, 255, 255
  79. 790 DATA 255, 255, 255, 255, 255, 255, 0, 0, 0, 0, 0, 0, 79, 1, 200, 0, 26
  80. 800 DATA 16, 26, 16, 1, 0, 82, 66, 140, 192, 5, 16, 0, 14, 31, 163, 4, 0
  81. 810 DATA 3, 6, 12, 0, 142, 192, 139, 14, 6, 0, 139, 249, 79, 139, 247, 253
  82. 820 DATA 243, 164, 139, 22, 14, 0, 80, 184, 56, 0, 80, 203, 140, 195, 140
  83. 830 DATA 216, 43, 194, 142, 216, 142, 192, 191, 15, 0, 185, 16, 0, 176, 255
  84. 840 DATA 243, 174, 71, 139, 247, 139, 195, 43, 194, 142, 192, 191, 15, 0
  85. 850 DATA 177, 4, 139, 198, 247, 208, 211, 232, 116, 9, 140, 218, 43, 208
  86. 860 DATA 142, 218, 131, 206, 240, 139, 199, 247, 208, 211, 232, 116, 9, 140
  87. 870 DATA 194, 43, 208, 142, 194, 131, 207, 240, 172, 138, 208, 78, 173, 139
  88. 880 DATA 200, 70, 138, 194, 36, 254, 60, 176, 117, 6, 172, 243, 170, 235
  89. 890 DATA 7, 144, 60, 178, 117, 107, 243, 164, 138, 194, 168, 1, 116, 186
  90. 900 DATA 190, 45, 1, 14, 31, 139, 30, 4, 0, 252, 51, 210, 173, 139, 200, 227
  91. 910 DATA 19, 139, 194, 3, 195, 142, 192, 173, 139, 248, 131, 255, 255, 116
  92. 920 DATA 17, 38, 1, 29, 226, 243, 129, 250, 0, 240, 116, 22, 129, 194, 0
  93. 930 DATA 16, 235, 220, 140, 192, 64, 142, 192, 131, 239, 16, 38, 1, 29, 72
  94. 940 DATA 142, 192, 235, 226, 139, 195, 139, 62, 8, 0, 139, 54, 10, 0, 3, 240
  95. 950 DATA 1, 6, 2, 0, 45, 16, 0, 142, 216, 142, 192, 187, 0, 0, 250, 142, 214
  96. 960 DATA 139, 231, 251, 46, 255, 47, 180, 64, 187, 2, 0, 185, 22, 0, 140
  97. 970 DATA 202, 142, 218, 186, 23, 1, 205, 33, 184, 255, 76, 205, 33, 80, 97
  98. 980 DATA 99, 107, 101, 100, 32, 102, 105, 108, 101, 32, 105, 115, 32, 99
  99. 990 DATA 111, 114, 114, 117, 112, 116, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0
  100. 1000 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
  101.